Determine whether file is SASS or SCSS

meoblast001 · Aug 21, 2015 · 627875a · 627875a
1 parent 287a921
commit 627875a
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 5 deletions.
diff --git a/hakyll-sass.cabal b/hakyll-sass.cabal
@@ -1,5 +1,5 @@
 name: hakyll-sass
-version: 0.1.0.0
+version: 0.1.0
 synopsis: Hakyll SASS compiler over hsass
 license: MIT
 license-file: LICENSE

diff --git a/src/Hakyll/Web/Sass.hs b/src/Hakyll/Web/Sass.hs
@@ -14,12 +14,24 @@ import Hakyll.Core.Compiler
 import Hakyll.Core.Item
 import System.IO.Unsafe
 import Text.Sass.Compilation
+import Text.Sass.Options
 
 -- | Compiles a SASS file into CSS.
 sassCompiler :: Compiler (Item String)
 sassCompiler = do
   bodyStr <- itemBody <$> getResourceBody
-  resultOrErr <- unsafeCompiler (compileString bodyStr def)
-  case resultOrErr of
-    Left sassError -> fail (unsafePerformIO $ errorMessage sassError)
-    Right result -> makeItem result
+  extension <- getUnderlyingExtension
+  let mayOptions = selectFileType def extension
+  case mayOptions of
+    Just options -> do
+      resultOrErr <- unsafeCompiler (compileString bodyStr options)
+      case resultOrErr of
+        Left sassError -> fail (unsafePerformIO $ errorMessage sassError)
+        Right result -> makeItem result
+    Nothing -> fail "File type must be .scss or .sass."
+
+-- | Use the file extension to determine whether to use indented syntax.
+selectFileType :: SassOptions -> String -> Maybe SassOptions
+selectFileType options ".scss" = Just $ options { sassIsIndentedSyntax = False }
+selectFileType options ".sass" = Just $ options { sassIsIndentedSyntax = True }
+selectFileType _ _ = Nothing