Add type signature to pattern synonym

2016-05-29 17:56:51 +02:00
parent b603f72407
commit 79dbcd8b55
1 changed files with 1 additions and 0 deletions
--- a/src/HPath.hs
+++ b/src/HPath.hs
@@ -95,6 +95,7 @@ instance RelC Fn
 --------------------------------------------------------------------------------
 -- PatternSynonyms

+pattern Path :: ByteString -> Path a
 pattern Path x <- (MkPath x)

 --------------------------------------------------------------------------------