Rename modules

This commit is contained in:
Rashad Gover 2022-08-15 01:52:08 +00:00
parent f89974c283
commit a869311c5a

View File

@ -4,7 +4,7 @@
{-# LANGUAGE QuantifiedConstraints #-}
{-# LANGUAGE RankNTypes #-}
module Okapi.Match where
module Okapi.Pattern where
import Control.Applicative
import Data.Attoparsec.Text
@ -88,7 +88,6 @@ segPattern = Pattern segParser segPrinter
data MyRoute = MyRoute Text Text Text
deriving (Eq, Show)
myRoutePrinter :: Printer MyRoute
myRoutePrinter = adapt >$< segPrinter >*< segPrinter >*< segPrinter