Another update from ingydotnet^djgoku

Task/Compile-time-calculation/Haskell/compile-time-calculation-1.hs

@@ -0,0 +1,7 @@
+module Factorial where
+import Language.Haskell.TH.Syntax
+
+fact n = product [1..n]
+
+factQ :: Integer -> Q Exp
+factQ = lift . fact

Task/Compile-time-calculation/Haskell/compile-time-calculation-2.hs

@@ -0,0 +1,4 @@
+{-# LANGUAGE TemplateHaskell #-}
+import Factorial
+
+main = print $(factQ 10)

Task/Compile-time-calculation/Haskell/compile-time-calculation.hs

@@ -1,5 +0,0 @@
-{-# LANGUAGE QuasiQuotes, TemplateHaskell #-}
-
-fact n = product [1..n]
-
-main = print $([|fact 10|])