Garmelon/rextra
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adapt nfaToDfa and dfaToNfa to new types

Browse source 
Also, the files updated so far compile with --pedantic now :)
This commit is contained in:
Joscha 2019-10-30 18:09:30 +00:00
parent c99b6dcd47
commit 51dfa176ac
3 changed files with 64 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Rextra/Dfa.hs
View file

@ -9,7 +9,6 @@ module Rextra.Dfa
, transitionsByState
) where
import Data.List
import qualified Data.Map.Strict as Map
import qualified Data.Set as Set
import Data.Tuple
@ -48,6 +47,6 @@ dfaTransition a s t =
Nothing -> defaultTransition state
dfa :: (Ord s, Ord t) => [(s, [(t, s)], s)] -> s -> [s] -> Maybe (Dfa s t)
dfa states entryState exitStates =
let stateList = map (\(s, ts, dt) -> (s, State (Map.fromList ts) dt)) states
dfa stateInfo entryState exitStates =
let stateList = map (\(s, ts, dt) -> (s, State (Map.fromList ts) dt)) stateInfo
in fa (Map.fromList stateList) entryState (Set.fromList exitStates)