From 8e448ffc31685427afaee62a0379c33525769a6a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 5 Mar 2017 15:44:50 +0100
Subject: Use stack

---
 src/Cooking.hs | 43 -------------------------------------------
 src/Main.hs    | 43 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+), 43 deletions(-)
 delete mode 100644 src/Cooking.hs
 create mode 100644 src/Main.hs

(limited to 'src')

diff --git a/src/Cooking.hs b/src/Cooking.hs
deleted file mode 100644
index e5f92b9..0000000
--- a/src/Cooking.hs
+++ /dev/null
@@ -1,43 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-import Data.List (sortBy)
-import Data.Monoid (mappend)
-import Data.Ord (comparing)
-
-import Hakyll
-import Hakyll.Core.Item (Item(itemIdentifier))
-
-main :: IO ()
-main = hakyllWith configuration $ do
-  match "images/*" $ do
-    route   idRoute
-    compile copyFileCompiler
-
-  match "design/*.hs" $ do
-    route   $ setExtension "css"
-    compile $ getResourceString >>= withItemBody (unixFilter "runghc" [])
-
-  match "recipes/*" $ do
-    route $ setExtension "html"
-    compile $ pandocCompiler
-      >>= loadAndApplyTemplate "templates/main.html" defaultContext
-      >>= relativizeUrls
-
-  match "index.html" $ do
-    route idRoute
-    let context =
-          listField "recipes" defaultContext (loadAll "recipes/*") `mappend`
-          defaultContext
-    compile $
-      getResourceBody
-          >>= applyAsTemplate context
-          >>= loadAndApplyTemplate "templates/main.html" context
-          >>= relativizeUrls
-
-  match "templates/*" $ compile templateBodyCompiler
-
-configuration :: Configuration
-configuration = defaultConfiguration
-  { destinationDirectory = "public"
-  , inMemoryCache = True
-  }
diff --git a/src/Main.hs b/src/Main.hs
new file mode 100644
index 0000000..e5f92b9
--- /dev/null
+++ b/src/Main.hs
@@ -0,0 +1,43 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import Data.List (sortBy)
+import Data.Monoid (mappend)
+import Data.Ord (comparing)
+
+import Hakyll
+import Hakyll.Core.Item (Item(itemIdentifier))
+
+main :: IO ()
+main = hakyllWith configuration $ do
+  match "images/*" $ do
+    route   idRoute
+    compile copyFileCompiler
+
+  match "design/*.hs" $ do
+    route   $ setExtension "css"
+    compile $ getResourceString >>= withItemBody (unixFilter "runghc" [])
+
+  match "recipes/*" $ do
+    route $ setExtension "html"
+    compile $ pandocCompiler
+      >>= loadAndApplyTemplate "templates/main.html" defaultContext
+      >>= relativizeUrls
+
+  match "index.html" $ do
+    route idRoute
+    let context =
+          listField "recipes" defaultContext (loadAll "recipes/*") `mappend`
+          defaultContext
+    compile $
+      getResourceBody
+          >>= applyAsTemplate context
+          >>= loadAndApplyTemplate "templates/main.html" context
+          >>= relativizeUrls
+
+  match "templates/*" $ compile templateBodyCompiler
+
+configuration :: Configuration
+configuration = defaultConfiguration
+  { destinationDirectory = "public"
+  , inMemoryCache = True
+  }
-- 
cgit v1.2.3