Skip to content

Instantly share code, notes, and snippets.

@TheSeamau5

TheSeamau5/MatchOn.elm

Created April 12, 2015 14:59
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save TheSeamau5/9f2f8d0fde0a3d631042 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save TheSeamau5/9f2f8d0fde0a3d631042 to your computer and use it in GitHub Desktop.
Download ZIP
String Match On
Raw
MatchOn.elm
matchOn : String -> String -> Maybe String
matchOn start string =
if startsWith start string
then
Just <| dropLeft (length start) string
else
Nothing
@TheSeamau5
Copy link
Author

TheSeamau5 commented Apr 12, 2015

The match function for the DSL:

match : List (String, String -> a) -> (String -> a) -> String -> a
match list defaultMatch url = case list of
  [] -> defaultMatch url
  (str, matcher) :: ms -> 
    -- Test for empty string matcher (usually home)
    if 
      str == "" 
    then
      if 
        url == ""
      then 
        matcher url
      else
        match ms defaultMatch url
    else 
      case matchOn str url of
        Just value -> matcher value
        Nothing    -> match ms defaultMatch url

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment