major rename

[hs-rrdtool.git] / Data / HList / String.hs

diff --git a/Data/HList/String.hs b/Data/HList/String.hs
index 6d4d52ddfeba32fbaaad0c5488027a8ce81c1bd1..cb06ef82c2bc751ba712c789155c2864b03b61fd 100644 (file)
--- a/Data/HList/String.hs
+++ b/Data/HList/String.hs
@@ -13,7 +13,7 @@ import Types.Data.Num.Ops
 
 class (Show s, Eq s) => HString s
 
-instance HString HNil
+instance HString Nil
 
 instance ( Show c
          , Show s
@@ -21,7 +21,7 @@ instance ( Show c
          , Eq s
          , IntegerT c
          )
-    => HString (HCons c s)
+    => HString (Cons c s)
 
 hString :: QuasiQuoter
 hString = QuasiQuoter quoteStrExp quoteStrPat
@@ -34,8 +34,8 @@ quoteStrExp (c:cs) = appsE [ varE (mkName "hCons")
                            ]
 
 quoteStrPat :: String -> PatQ
-quoteStrPat []     = varP (mkName "HNil")
-quoteStrPat (c:cs) = conP (mkName "HCons")
+quoteStrPat []     = varP (mkName "Nil")
+quoteStrPat (c:cs) = conP (mkName "Cons")
                      [ sigP wildP (decLiteralT $ toInteger $ fromEnum c)
                      , quoteStrPat cs
                      ]