X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=hs-rrdtool.git;a=blobdiff_plain;f=Data%2FHList%2FString.hs;h=cb06ef82c2bc751ba712c789155c2864b03b61fd;hp=6d4d52ddfeba32fbaaad0c5488027a8ce81c1bd1;hb=000307857df5266907964aff4ecc9e118314fe3f;hpb=256aad40f96ce034bc1aebd3302ecd8a86419163

diff --git a/Data/HList/String.hs b/Data/HList/String.hs
index 6d4d52d..cb06ef8 100644
--- 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
                      ]