aboutsummaryrefslogtreecommitdiff
path: root/src/Language/Mili/Reducer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Language/Mili/Reducer.hs')
-rw-r--r--src/Language/Mili/Reducer.hs9
1 files changed, 9 insertions, 0 deletions
diff --git a/src/Language/Mili/Reducer.hs b/src/Language/Mili/Reducer.hs
new file mode 100644
index 0000000..a65e018
--- /dev/null
+++ b/src/Language/Mili/Reducer.hs
@@ -0,0 +1,9 @@
+module Language.Mili.Reducer
+ ( nf
+ ) where
+
+import Data.Mili ( Term(..) )
+
+-- | Reduce term to normal form
+nf :: Term -> Term
+nf m = m