Zeroto/Index.fs

## Index.fs
let styles = StyledComponents.import "./test.module.css"

let view (model : Model) (dispatch : Msg -> unit) =
  div [styles "test"] [str "test"]

## Result.html
<html>
  <head>
    <style>._311kSsEcp617TYlmgIvyg4 { background-color: #FF0000; }
    </style>
  </head>
  <body>
    <div class="_311kSsEcp617TYlmgIvyg4">test</div>
  </body>
</html>

## ScopedStyles.fs
module StyledComponents

open Fable.Core
open Fable.Core.JsInterop
open Fable.React.Props

[<Emit("$0[$1]")>]
let private getProp (x: obj) (key: string) : obj = jsNative

let inline SClass (styles: obj) (name: string): HTMLAttr =
  !!("className", getProp styles name)

let inline import moduleName =
  let x = importAll<obj> moduleName
  fun s -> SClass x s

## test.module.css
.test {
  background-color: "#FF0000"
}
	let styles = StyledComponents.import "./test.module.css"

	let view (model : Model) (dispatch : Msg -> unit) =
	div [styles "test"] [str "test"]
	<html>
	<head>
	<style>._311kSsEcp617TYlmgIvyg4 { background-color: #FF0000; }
	</style>
	</head>
	<body>
	<div class="_311kSsEcp617TYlmgIvyg4">test</div>
	</body>
	</html>
	module StyledComponents

	open Fable.Core
	open Fable.Core.JsInterop
	open Fable.React.Props

	[<Emit("$0[$1]")>]
	let private getProp (x: obj) (key: string) : obj = jsNative

	let inline SClass (styles: obj) (name: string): HTMLAttr =
	!!("className", getProp styles name)

	let inline import moduleName =
	let x = importAll<obj> moduleName
	fun s -> SClass x s