mirror of
https://github.com/facebook/duckling.git
synced 2024-10-27 06:08:17 +03:00
bf89e34365
Reviewed By: JoelMarcey Differential Revision: D15439223 fbshipit-source-id: c5af3cb06318748142fe503945b38beffadfc28a
64 lines
1.6 KiB
Haskell
64 lines
1.6 KiB
Haskell
-- Copyright (c) 2016-present, Facebook, Inc.
|
|
-- All rights reserved.
|
|
--
|
|
-- This source code is licensed under the BSD-style license found in the
|
|
-- LICENSE file in the root directory of this source tree.
|
|
|
|
|
|
{-# LANGUAGE GADTs #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Duckling.Url.Rules
|
|
( rules ) where
|
|
|
|
import Prelude
|
|
import Data.String
|
|
|
|
import Duckling.Dimensions.Types
|
|
import Duckling.Regex.Types
|
|
import Duckling.Types
|
|
import Duckling.Url.Helpers
|
|
|
|
ruleURL :: Rule
|
|
ruleURL = Rule
|
|
{ name = "url"
|
|
, pattern =
|
|
[ regex "((([a-zA-Z]+)://)?(w{2,3}[0-9]*\\.)?(([\\w_-]+\\.)+[a-z]{2,4})(:(\\d+))?(/[^?\\s#]*)?(\\?[^\\s#]+)?(#[\\-,*=&a-z0-9]+)?)"
|
|
]
|
|
, prod = \tokens -> case tokens of
|
|
(Token RegexMatch (GroupMatch (m:_:_protocol:_:domain:_:_:_port:_path:_query:_)):
|
|
_) -> Just . Token Url $ url m domain
|
|
_ -> Nothing
|
|
}
|
|
|
|
ruleLocalhost :: Rule
|
|
ruleLocalhost = Rule
|
|
{ name = "localhost"
|
|
, pattern =
|
|
[ regex "((([a-zA-Z]+)://)?localhost(:(\\d+))?(/[^?\\s#]*)?(\\?[^\\s#]+)?)"
|
|
]
|
|
, prod = \tokens -> case tokens of
|
|
(Token RegexMatch (GroupMatch (m:_:_protocol:_:_port:_path:_query:_)):_) ->
|
|
Just . Token Url $ url m "localhost"
|
|
_ -> Nothing
|
|
}
|
|
|
|
ruleLocalURL :: Rule
|
|
ruleLocalURL = Rule
|
|
{ name = "local url"
|
|
, pattern =
|
|
[ regex "(([a-zA-Z]+)://([\\w_-]+)(:(\\d+))?(/[^?\\s#]*)?(\\?[^\\s#]+)?)"
|
|
]
|
|
, prod = \tokens -> case tokens of
|
|
(Token RegexMatch (GroupMatch (m:_protocol:domain:_:_port:_path:_query:_)):
|
|
_) -> Just . Token Url $ url m domain
|
|
_ -> Nothing
|
|
}
|
|
|
|
rules :: [Rule]
|
|
rules =
|
|
[ ruleURL
|
|
, ruleLocalhost
|
|
, ruleLocalURL
|
|
]
|