compiler: do not require sidecar file

GitHub: closes #4

1 files changed, 4 insertions, 1 deletions

diff --git a/compiler/src/Files.hs b/compiler/src/Files.hs
index 079da61..d1363a1 100644
--- a/compiler/src/Files.hs
+++ b/compiler/src/Files.hs
@@ -23,7 +23,7 @@
 
 module Files
   ( FileName, LocalPath, WebPath, Path
-  , (</>), (</), (/>), localPath, webPath
+  , (</>), (</), (/>), (<.>), localPath, webPath
   , FSNode(..), AnchoredFSNode(..)
   , nodePath, nodeName, isHidden, flattenDir, filterDir, readDirectory
   , ensureParentDir, remove, isOutdated
@@ -62,6 +62,9 @@ path </ file = file:path
 (/>) :: FileName -> Path -> Path
 file /> path = path ++ [file]
 
+(<.>) :: Path -> String -> Path
+(filename:pathto) <.> ext = System.FilePath.addExtension filename ext : pathto
+
 localPath :: Path -> LocalPath
 localPath = System.FilePath.joinPath . reverse